  sr        =  48000
  kr        =  4800
  ksmps     =  10
  nchnls    =  2

            massign   0, 1

    instr 1
  kbend     pchbend
  ioct      octmidi
  idb       ampmidi   90
  kmod      midictrl  1
  kmod      oscil     kmod/60, cpsoct(kmod/80), 2
  kcps      =  cpsoct(ioct+kbend/6)
  kcps      =  kcps + kmod*kcps
  kamp      linseg    0, 0.1, ampdb(idb)
  asig      oscil     kamp, kcps, 1
            outs      asig, asig
    endin